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This manual provides programmers with the informa- 
tion necessary to code a 1401 program in SPS language 
and assemble a machine-language object-program. It is 
assumed that the programmer has a basic knowledge 
of 1401 machine language programming. 

It describes symbolic programming principles and 
concepts and gives detailed specifications of the 1401 
Symbolic Programming Systems, SPS 1 and SPS 2. 

Operating instructions for processing the SPS source 
program are enumerated. The SPS processor program 
can assemble a machine language program on configu- 
rations of the 1401 Data Processing System equipped 
with a 1402 Card Read-Punch. 

A sample program is included for the convenience 
of the beginning SPS programmer. Input and output 
forms, a block diagram of the program procedure, the 
symbolic program, and SPS output listings of the sym- 
bolic and machine-language programs are shown. 
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Preface 



This manual describes the language specifications and 
operating procedures for the ibm 1401 Symbolic Pro- 
gramming Systems SPS-1 and SPS-2. 

This manual is designed for programmers who know 
the input, output, and processing characteristics, as 
well as the basic functions and operations of the ibm 
1401 Data Processing system. 

The language is presented in a special format that: 

• describes generally each type of SPS statement 

• describes specifically the construction of the state- 
ment 

• describes generally the processing and assembly 
functions 

• shows an example of how each statement can be 
used in a program. 

The operating procedures are presented in detail 
with descriptions of deck assemblies, error notes, etc. 

A sample problem shows a simple payroll listing 
including input and output documents, the SPS source 
program, and the output from assembly. 



This SRL publication, C24-1480, obsoletes the ibm 1401 Data 
Processing System Bulletins: ibm 1401 Symbolic Programming 
System: Preliminary Specifications, J24-0200, and ibm 1401 
Symbolic Programming Systems: SPS-1 and SPS-2, J24-1412. 



Copies of this and other ibm publications can be obtained through ibm Branch Offices. 

Address comments regarding the content of this publication to ibm Product Publications, Endicott, New York. 
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Symbolic Programming Systems 



With the increasing capability of data processing sys- 
tems, programming in the actual machine language of 
a system has become more complex. Not only does 
machine-language coding require memorization of a 
great many numeric and alphabetic codes but i also 
the length and intricate design of programs written in 
machine language make them prone to logical and 
clerical errors. 

Also, the problem of correcting errors in an actual 
machine-language program is intensified because of the 
difficulty in tracing the steps of a machine-language 
program to include corrections and relocate the prob- 
lem in storage. 

Symbolic programming, the use of mnemonic char- 
acters to write a program, has been developed to 
facilitate computer programming. When mnemonic in- 
structions are used, data may be referred to in terms 
which are logical to the layman, as well as to the 
experienced programmer. Another advantage of sym- 
bolic programming is that the checking of each pro- 
gram may be performed by a person other than the 
programmer. 

In a symbolic system, a routine to add current 
withholding tax to total miscellaneous deductions, sub- 
tract the total from gross pay, and store the amount 
as net pay might look like this: 



short routine written in symbolic form than to compre- 
hend the same routine written in machine language, 
which might look like this: 



Operation Code 




Operands 


ZA 


CURWTX 


ACCUM 


A 


TOTMDN 


ACCUM 


ZA 


GROSS 


NETPAY 


S 


ACCUM 


NETPAY 



The first instruction in this routine sets to zero a 
machine storage area, which is arbitrarily labeled 
accum. It then adds the current withholding tax (an 
area called curwtx) into this area. The next instruc- 
tion, total miscellaneous deductions (totmdn), is added 
to the contents of accum, which is curwtx. 

Then a storage location, labeled netpay, is set to 
zero, and gross pay (gross) is added into it. In the last 
step the contents of accum (curwtx + totmdn) is 
subtracted from the contents of netpay (gross). This 
puts (gross-curwtx-totmdn) in a suitably labeled loca- 
tion (netpay), to which the programmer may refer 
later in the program. 

Once the data and working areas have been defined 
and labeled, it is easier to follow the logic of this 



Operation Code 


Operands 


? 


060 S93 


A 


045 S93 


? 


050 A95 


S 


S93 A95 



A program written in symbolic programming lan- 
guage (the source program) requires translation into 
an actual machine-language program (the object pro- 
gram) before a computer can execute it. This trans- 
lation is done by a machine-language program called 
a processor. In general, the translation is "one-for- 
one." That is, for each instruction written in symbolic 
form, one machine-language instruction is produced. 

The processor, sometimes called an assembly system, 
generally utilizes the machine for which the symbolic 
program is written. It analyzes all symbolic entries and 
converts them to actual machine operating data and 
instructions, establishing specified relationship be- 
tween them. 

As an additional feature, assembly programs also 
indicate various types of errors such as coding, out-of- 
sequence cards, etc. Symbolic programming saves time 
and simplifies coding. Because actual machine ad- 
dresses of data and instructions are assigned auto- 
matically by the processor, the programmer need not 
concern himself with this detail. He can, however, 
refer to these addresses symbolically. 

Once there is an agreement on label terminology, 
subroutines (short programs or routines common to a 
number of programs) may be easily incorporated in any 
program, and a major program may be written in inde- 
pendent parts with no loss of efficiency in the final 
program. Corrections and modifications of program in- 
structions also entail no reassignment of addresses by 
the programmer. Finally, the automatic assignment of 
addresses makes programs and subroutines readily 
relocatable, i.e., they can be placed in varying machine 
locations as desired. 

Because of the advantages in symbolic programming 
for the ibm 1401 Data Processing System, ibm has de- 
veloped the 1401 Symbolic Programming Systems 
(SPS-1 and SPS-2). 



IBM 1401 Symbolic Programming System 



The ibm 1401 basic Symbolic Programming System, 
SPS-1, operates on the 1400-character machine with 
the 1402 Card Read-Punch and the 1403 Printer, but 
it can assemble programs for any object machine con- 
figuration up to 4000 positions of storage. An expanded 
Symbolic Programming System, SPS-2, can assemble 
programs for any size object machine (1,400 to 16,000 
positions of storage), but requires assembly on a 1401 
system that has at least 4,000 storage positions and the 
1402 Card Read-Punch, and the 1403 Printer. The 
general description and operating procedure of both 
systems are the same; however, any characteristics that 
apply only to the expanded programming system, be- 
cause of its larger machine storage requirements, will 
be noted throughout the manual. 



Advantages of IBM 1401 SPS 

Some significant advantages of the ibm 1401 Symbolic 
Programming System are: 

• Simplifies program writing and organization. For ex- 
ample, it is easier to write and refer to an instruction 
such as s whtax gross (Subtract Withholding Tax 
from Gross) than to look up the addresses of with- 
holding tax and gross for an instruction like j> 599 618. 

• Provides continuity for group programming efforts. 
Upon agreement of labeling terminology, program 
routines can be written independently and efficiently 
and can be combined for assembling because ad- 
dresses are automatically assigned by the processor. 

• Simplifies program adjustment. If programs require 
partial revision, only the affected routines need to 
be rewritten. 

• Detects coding errors. Illegal operation codes, in- 
valid addresses, sequence errors, etc., are detected 
by the SPS listing routine before the program is actu- 
ally assembled. 

• Facilitates program testing. Explanatory comments 
may be listed next to program instructions. 



Programming with SPS 



Effective programming in ibm 1401 requires a knowl- 
edge of the methods of programming in machine lan- 
guage. Before the programmer begins to code his pro- 
gram in symbolic language, (as when writing in actual 
machine language) he draws a block diagram of the 
procedure the program must take to accomplish a 
desired end result. From this block diagram he must 
determine which constants and work areas are needed. 
Constants are fixed data, such as a standard fica 
limit calculation. Work areas are locations within core 
storage where the data can be manipulated, such as 
input and output areas, accumulator fields, etc. Then 
he writes the instructions for the program. 



Symbolic Language 

The symbolic language includes a standard set of 
mnemonics. These mnemonics are standardized abbre- 
viations for operation code descriptions, and are usu- 
ally easier to remember than the machine-language 
codes. For example: 



Description 

Multiply 

Clear Word Mark 



Mnemonic 

M 

CW 



Machine 
Language Code 



A list of mnemonic operation codes is shown in Fig- 
ure 38. Also included as part of the symbolic language 
are standard methods for defining areas and entering 
constants, comments, etc. 

By using the symbolic language, the programmer 
can control the locations of record and work areas if 
he so chooses, or he can leave this job to the processor 
program, 



Information Requirements 

The information that the processor program requires 
to assemble the object program is divided into three 
major categories : 

Area Definition (Declarative Operations) 
Instructions (Imperative Operations) 
Processor Controls (Process Control Operations) 

Area Definition 

These statements assign sections of storage space for 
work areas. The assigned areas will be used by the 
object program and may contain the data to be proc- 
essed and/ or the constants required to execute the 
object program. Area definition statements in most 
cases do not result in instructions to be executed as 
part of the object program. However, the processor 
program does produce for these statements cards con- 
taining constants and their assigned machine addresses. 
These constants cards are loaded with the object pro- 
gram each time the program is used. 

Instructions 

Most of the statements on the program sheet are the 
instructions for the data processing job to be per- 
formed. These statements are translated by the proc- 
essor program into their machine-language equivalents 
in the object program. 

Processor Controls 

These statements are special signals to the processor 
program. They allow the programmer to adjust certain 
portions of the assembly process. These statements 
are never executed in the object program. 

These three types of information are presented to 
the processor program in the form of SPS statements 
written originally on a special Symbolic Program Cod- 
ing Sheet. 



Processor Program 

A standard deck of cards furnished by ibm contains 
the processor program that produces the object pro- 
gram (actual machine-language program) from the 
source program (symbolic language program). The 
SPS processor, also called an assembly program, as- 
sembles the object program from information given in 
the source program statements. The object program is 
then punched in one-instruction-per-card format. The 
punched output deck is then used to load the assem- 
bled machine-language program into core storage prior 
to its execution. 



Coding Sheet 

The ibm 1401 Symbolic Program Coding Sheet (Fig- 
ure 1) is fixed-form. A special field is provided for 
each item of information required by the processor. 
Each statement is written on a separate line. 

Before assembly, each line of the coding sheet is 
key punched into a card. These cards make up the 
source program deck which is the input to the proc- 
essor program. 

Column numbers on the coding sheet indicate the 
punching format for all source program cards. 



To facilitate key punching, ibm makes available a 
special card, electroplate C55369, for use with the 1401 
SPS. This card is also used to contain the object pro- 
gram as it is punched as output from the assembly 
process. 

The function of each portion of the coding sheet is 
explained in the following paragraphs. 

Page Number (Columns 1 and 2) 

This two-character entry provides sequencing for cod- 
ing sheets. Only numerical characters may be used. 
Standard collating sequence for the ibm 1401 should be 
followed when sequencing pages. 

Line Number (Columns 3-5) 

A three-character line number sequences entries on 
each coding sheet. The first 20 lines are prenumbered 
010-200. The third position is punched zero, the lowest 
number in the collating sequence. The six unnumbered 
lines at the bottom of each sheet can he used to con- 
tinue line numbering or to make insertions between en- 
tries elsewhere on the sheet. The units position of the 
line number indicates the sequence of inserts. Any nu- 
merical character can be used, but standard collating 
sequence should be used. For example, if an insert is 
to be made between lines 020 and 030, it could be 
numbered 021. Line numbers do not necessarily have 
to be consecutive, but the deck should be in collating 
sequence, for sorting purposes. 

The programmer should note that insertions can af- 
fect address adjustment. An insertion might make it 
necessary to change the adjustment factor in the oper- 
and of one or more entries. All insertions should be 
placed in their proper sequence in the source program 
deck before assembly. 

Count Field (Columns 6 and 7) 

The number of characters the assembled actual machine 
instruction or defined area is to contain is punched 
into this field. The processor uses this number to allo- 
cate storage locations for data and instructions. For 
example, if the count field of an area definition state- 
ment contains a 6, six storage locations will be allo- 
cated for that area. The processor will also use this 
number to assign an address for the area. See Address 
Assignment. 

Because the processor can determine the length of 
an instruction from the information presented in the 
statement, the programmer can leave the count field 
blank for instruction entries. The processor will de- 
velop and punch the count in the count field of the 
object program deck in any case. For instructions, the 
processor will override any punching in the count field. 



Label Field (Columns 8-13) 

The label is a symbol or descriptive term selected by 
the programmer to identify the specific area or instruc- 
tion represented by the source program statement in 
which the label appears. The label may then be used 
elsewhere in the program, i.e., in an operand of another 
source program statement, to refer to the area or in- 
struction which it identifies. 

It is advantageous to devise a label that suggests the 
meaning of the area or instruction, so that the source 
program can be easily interpreted by anyone con- 
cerned with the program. For example: 



Type of Statement 

Area definition 
Instruction 



Meaning 

Withholding Tax 
Update 



Label 

WHTAX 
UPDATE 



Labels are used only with area definition and in- 
struction statements. Remember that core storage is 
allocated, and an address is assigned for all instructions 
and most area definitions. If the statement is labeled, 
the assigned address is known as the "equivalent ad- 
dress" of the label. The processor maintains during 
assembly a table of labels and their equivalent ad- 
dresses. When a label appears in the operand of a 
statement, its equivalent address may be found and 
substituted for the label in the assembled statement. 

The equivalent address of the label of an instruction 
is made equal to the leftmost, or high-order, core- 
storage position of those positions allocated to the 
instruction. The equivalent address of the label of a 
defined area or constant is made equal to the right- 
most, or low-order, core-storage position of those posi- 
tions allocated to the area or constant. 

No two labels in the source program may be iden- 
tical. 

The label is punched beginning in column 8 of the 
label field. It can be as many as six alphamerical char- 
acters in length and the first, or leftmost, character 
must be alphabetic. No actual machine addresses or 
special characters should be used for this purpose. 
Blanks must not appear within a label. 

Operation (Columns 14-16) 

This field contains the operation code for the state- 
ment. Area-definition and processor control statements 
always have mnemonic operation codes. Instruction 
statements can have either mnemonic or actual opera- 
tion codes. If the mnemonic op code is used, it is writ- 
ten and punched beginning in column 14 of the opera- 
tion field. Actual op codes are punched in column 16. 

Operands (Columns 17-27 and 28-38) 

In the (A) and (B) operand fields are placed the 

programmer's designations of: 

1. For instruction statements: the addresses of the 



data to be operated upon, or the input-output units 
to be operated. 

2. For area definition statements: the constant being 
defined., the address at which the constant is to be 
stored, or the address or input-output unit which is 
to be the equivalent of the label. 

3. For processor control operations: the address which 
is to be used with the particular control of the proc- 
essor being invoked by the programmer at that 
point in the program. 

It is evident, then, that each entry in the operand 
fields serves one of the following purposes: 

1. It designates a core-storage address. 

2. It designates an input-output unit. 

3. It provides the constants being defined. 

Core-Storage Address Operands 

These are designated by using the Address, Character 
Adjustment, and Indexing portions of the operand field. 



There are four types of core-storage address operands: 
Symbolic, Actual, Asterisk, and blank. 

SYMBOLIC ADDRESSES 

A symbolic address can be composed of as many as six 
letters or digits (no special characters), but the first 
(high-order) character must be a letter. It refers to an 
instruction or area definition statement in the source 
program whose label is identical to it. For example, if 
entrya is used as the label for an instruction in the 
source program, entrya can be used as the symbolic 
operand of another instruction which references it such 
as b entrya (Branch to the instruction whose label is 
entrya). 

Each symbol used must have a corresponding label 
because the processor substitutes the address assigned 
to the label wherever the symbol appears in the oper- 
and field of another source program statement. If 
character adjustment or indexing is associated with the 
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Figure 1. ibm 1401 Symbolic Program Coding Sheet 



symbolic address, the processor will modify the ad- 
dress assigned to the label accordingly. 

The programmer may write a symbolic address in a 
statement that precedes the labeled statement in the 
source program, because the processor does not assign 
addresses until all source program statements have 
been examined and the entire label table has been 
created. 

ACTUAL ADDRESSES 

In SPS-1 an actual address is a four-digit number 
written and punched beginning in column 17 of the 
A-operand field or in column 28 of the B-operand field. 

In SPS-2 actual addresses can be either four or five 
digits, depending upon machine size, and are written 
and punched beginning in column 17 of the A-operand 
field or in column 28 of the B-operand field. 

Figure 2 shows the use of one symbolic and one 
actual address in the source program. 



LINE 


COUNT 


LABEL 


OPERATION 


(A) OPERAND 


1BI OPERAND 


d 


ADDRESS |±| C 4 H A ;- 


i 


ADDRESS |± C A H D *"- 


i 


0,1 ,0 






&,w!z 


JJPD.ATE! ! , , 




0,0,7 M, , . ! ! , , 




K 



Figure 2. SPS Instruction with Symbolic and Actual Addresses 
ASTERISK ADDRESSES 

An asterisk address is the character "*" left- justified 
in the address field. Like symbolic addresses, it has 
a core-storage equivalent, but this equivalent address 
is simply the rightmost, or low-order, position in the 
instruction or data field defined by the statement. 

Figure 3 shows an SPS statement with an asterisk 
address. In this example, the instruction was assigned 
the address 0906 during assembly. Because the instruc- 
tion is seven characters in length, the low-order posi- 
tion of the instruction is 0912. The processor substitutes 
this address in the A-operand of the statement shown 
in Figure 3 and assembles it: M 912285. Thus, the 
actual machine-language instruction will appear in 
core storage as shown in Figure 4 after the object 
program has been loaded. 
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Figure 3. SPS Statement with an Asterisk Address 
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Figure 4. Assembled Instruction in Core Storage 
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BLANK ADDRESSES 

Blank addresses are valid in instructions where no 
operand is needed. (See Imperative Operations.) 
Input-Output Operands 

The three-character addresses of tape units, disk stor- 
age units, and other input-output or storage units re- 
quiring special addresses are written left-justified in 
the A-operand field. 

For example, the three-character address of tape unit 
1 is the A-operand of the SPS statement shown in 
Figure 5. 

Constant Operands 

A constant operand is valid only in an area-definition 
statement which contains a constant to be loaded with 
the assembled object program. The constant should be 
written and punched exactly as it is to be loaded and 
stored. It must begin at column 24 and may extend to 
column 55. 

Figure 6 shows a constant operand. The field to be 
defined is labeled ficalt. The constant is 480000. 

Character Adjustment (Columns 23-26 and 34-37). It is 
possible to reduce the number of labels required in 
a source program by using a character-adjustment 
factor with an actual, asterisk or symbolic address 
in the operand field of an SPS source program state- 
ment. 

The adjustment factor is written and punched as 
a plus or minus (& or — ) in the ± column (23 or 34) 
and the number of positions of adjustment (as many 
as 3 digits) right- justified in the Char. Adj. field 
(columns 24-27 or 35-38). 

During the assembly of the machine-language 
object program entry, this adjustment factor is added 
to or subtracted from the actual address assigned 
to the label by the processor. Thus, one label can 
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Figure 5. Addressing a Tape Unit in an SPS Statement 
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Figure 6. Constant Operand 
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Figure 7. Two Labels Used 



serve as a reference point for more than one ad- 
dress. For example, if entrya is the label for an 
instruction which precedes the instruction, which 
could be called entryb, the programmer can use 
entrya as the reference point for entryb. 

If the instruction whose label is entrya is 7 char- 
acters long, the symbolic entry operand entrya +007 
will produce an actual address equal to the address 
that would have been created if entryb had been 
used as the label for the second instruction. Figure 
7 shows a section of a source program in which two 
separate labels are used. Figure 8 shows the same 
section in which one label is used. Both sections 
produce the same result in the object program (Fig- 
ure 9). 

Figure 10 shows how character adjustment can be 
used to address a location within a labeled field. 

date is a twelve-character constant. The character 
adjusted operand will cause only the first six digits 
of the date (i. e., DEC 28, rather than DEC 28, 
1961) to be moved to 0243. 

Because the number of labels used in a source pro- 
gram can have a significant effect on the amount of 
time required to assemble an SPS program, character 
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Figure 8. One Label Used with Character Adjustment 
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adjustment is especially recommended in source pro- 
grams which require a considerable amount of label- 
ing. The number of labels that can be processed in 
one pass of SPS assembly depends upon the size of 
the processing 1401. Details are given in the operat- 
ing section of this publication. 

Note: The programmer must be careful when 
making insertions in a source program where char- 
acter adjustment has been used. The insertion could 
necessitate changing the adjustment factor in one 
or more SPS statements. This same caution also ap- 
plies to patching. 

Indexing (Columns 27 and 38). If the advanced- 
programming feature is available in the machine 
that executes the object program (object machine), 
the programmer may indicate that an actual, sym- 
bolic, or asterisk address is to be indexed. He does 
this by writing the SPS index code in the index col- 
umn of an SPS statement. 

The index codes are 1, 2, and 3. A code 1 in an 
index column specifies that the address in the same 
operand field is to be indexed by the contents of 
index location 1 (core-storage locations 087-089) 
when the object program is executed. A code 2 
specifies index location 2 (core-storage locations 
092-094) and a code 3 specifies index location 3 
(core-storage locations 097-099). 

When the processor program encounters an in- 
dexed operand, it puts tag bits over the tens position 
of the assembled three-character machine address 
as follows: 
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Figure 9. Assembled Instructions 



For example, the source program statement shown 
in Figure 11 specifies that the B-operand is to be 
modified by the contents of index location 1. The 
processor will assemble an instruction that will cause 
totamt to be moved to a field whose address is 
equal to 596 plus the contents of index location at 
program execution time. If index location 1 contains 
100 when the instruction is executed, totamt will 
be moved to 696. Assume that the equivalent ad- 
dress of totamt is 428. The machine-language in- 
struction produced by the SPS processor program 
will be: M 428 5Z6. 
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Figure 10. Character Adjustment Used in Addressing 
a Location within a Field 
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Figure 11. SPS Statement Specifying Indexing 
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Note: Character adjustment and indexing entries 
are valid only with core-storage address operands, 
and then only when the address field of the operand 
is actual, symbolic, or asterisk. These entries are not 
valid with input-output unit operands or constant 
operands, nor are they valid when a core-storage 
address operand designates the address at which a 
defined area or constant is to be stored. 

d-Character (Column 39) 

Some 1401 instructions require a special modifier to 
the operation code called a d-character. It is a single 
alphabetic, numerical, or special character written and 
punched in column 39. The d-characters are always 
written in machine-language and are simply trans- 
ferred by the processor to the d-character position of 
the assembled machine-language instruction. 

Comments (Columns 40-55) 

This field is reserved for programmer's notes or com- 
ments about a particular entry. A source program that 
contains a complete set of comments can be more 
easily understood and traced by all persons concerned 
with a given program. The comments have no effect 
on the object program as it is assembled or executed. 
Columns 56-75 of source program cards must be left 
blank, or incorrect processing will occur. 

COMMENTS CARD 

To provide the programmer with the ability to insert 
more extensive descriptive information in the program 
listing than is possible by using the comments field 
on a program entry card, a comments card may be 
included in the source program deck. 

Comments cards will not be assembled nor will they 
affect the assembling procedure. When encountered 
by the processor, they will be reproduced unaltered 
in the SPS output deck, and will be bypassed when 
the object program is being loaded. 

The Programmer: 

1. Indicates with an asterisk in the first position of the 
label field (column 8) that the card is a comments 
card. 

2. May write the comment beginning at any position 
(columns 9-55). Comments extending beyond posi- 
tion 55 may cause an error during processing. 

The Processor: Reproduces (unaltered) the comment 
in proper sequence in the program listing. 



Example: In the sample program, the entry in Figure 
12 is a comments card entry. 

Identification (Columns 76-80) 

This field may contain any 1401 characters which the 
programmer selects to identify the program. 

Address Assignment 

To assign addresses to instruction and area-definition 
entries, the 1401 SPS processor uses a "storage assign- 
ment counter." This counter stands at 333 at the be- 
ginning of assembly (333 is the first available storage 
location beyond the standard read punch and print 
areas). However, the programmer can force the proc- 
essor to begin assigning addresses elsewhere. See 
Origin. 

During the first pass of assembly, the processor allo- 
cates storage for constants, work areas, and instruc- 
tions. The amount of storage needed for each such 
entry is determined by the number in the count field. 
This number is simply added to the storage-address 
assignment-counter to develop addresses. 

If the statement being processed has a label, the 
processor transfers it and its equivalent address to 
the label table. 

During the second pass the processor converts these 
addresses to three-character machine addresses and 
stores them in the object program statements where 
corresponding symbols appeared in the operand fields 
of the source program statements. If character adjust- 
ment and indexing are specified, addresses are modi- 
fied before they are stored. 

Addresses for asterisk operands in instructions are 
determined by the address assigned to the low-order 
position of the instruction. This information is part of 
the loading data and is thus available when instruc- 
tions are assembled for the object program deck. 
Note: Actual addresses in area-definition statements 
do not affect the storage assignment counter and the 
count field in these statements is ignored. However, 
labels and the actual addresses associated with them 
are stored in the label table. The programmer must be 
careful that the locations specified in these statements 
are not the same locations that will be allocated by 
the processor to other statements in the source pro- 
gram. Otherwise, the processor will re-allocate them, 
and part of the object program will be destroyed at 
program load time. 
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Figure 12. Typical Entry on an SPS Comments Card 
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Declarative Operations 
(Area-Definition Statements) 



The ibm 1401 SPS provides four different declarative 
operations for reserving work areas and constants. 

Mnemonic Op Code Purpose 

DCW Define Constant with Word Mark 

DC Define Constant (no Word Mark) 

DS Define Symbol 

DSA Define Symbol Address 



DCW - Define Constant With Word Mark 

General Description: A dcw statement causes a con- 
stant to be loaded into a core-storage area and a 
word mark to be set in the high-order position of 
this area at program load time. 

The Programmer: 

1. writes dcw in the operation field. 

2. writes in the count field the number of core-storage 
positions needed to store the constant or work area. 

3. writes a symbol in the label field if he wishes to 
refer later to the address of the field where the con- 
stant is stored. 

4. writes the address of the area in which the constant 
is to be stored. If the programmer wishes to let the 
processor assign the address, he simply writes an 
asterisk (*) in column 17. Otherwise, he writes an 
actual address beginning in column 17. In any case 
the address will refer to the low-order (units) posi- 
tion of the defined area. 

5. writes the constant beginning in column 24 of the 
coding sheet. The constant may extend to the end 
of the comments field (column 55). Thus, the maxi- 
mum size of a constant is 32 core-storage positions. 

6. may write a comment in columns 40-55 if these posi- 
tions are outside the range of the constant itself as 
specified in the count field. 

Note: In SPS-1, comments in dc and dcw statements 
are never listed, dcw and dc operands may not have 
character adjustment or indexing. 

NUMERICAL CONSTANTS 

A plus or minus sign can precede a numerical constant. 
A plus sign causes AB-bits to be placed over the units 
position of the constant; a minus sign causes a B-bit 
to be put there. The plus or minus sign is written and 
punched in column 23. If no plus or minus sign appears 
in column 23, the constant is stored at program load 
time as an unsigned field. 
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Figure 13. Numerieal Constant (Signed) 

Example: Figure 13 shows the numerical constant 
+10 defined in a dcw statement. The programmer 
has selected core-storage positions 3986 and 3987 as 
the location for the constant. It will be stored 1_?. 

Figure 14 shows an unsigned numerical constant 
(designed for use as a work area). In this example 
seven zeros are loaded to initialize the work area to 
£000000. The asterisk indicates that the processor is 
to assign the address of the constant. 
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Figure 14. Work Area Defined by a dcw Statement 
ALPHAMERICAL CONSTANTS 

An alphamerical constant can consist of any valid 1401 
characters. Alphamerical constants are always un- 
signed. 

Example: Figure 15 shows the alphamerical constant 
date defined by a dcw statement. The programmer 
has selected 0499 as the address of the constant. Be- 
cause date is now equivalent to address 0499, the 
constant can be referred to as either date or 0499. 
The constant will be loaded as DEC 28, 1961. 

Figure 16 shows the alphamerical constant edtwdI 
defined in a dcw statement. The constant j>bb,bb0.bb 
will appear in core storage as a field whose units posi- 
tion is determined by the processor. 
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Figure 15. Alphamerical Constant 
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Figure 16. Edit Control Word Defined by a dcw Statement 



BLANK CONSTANTS 



A blank constant appears as blanks in the constant 
field (columns 24 through the length of the area as 
specified by the count field). 
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Figure 17. Blank Constant 

Example: Figure 17 shows a blank constant _bbbbb 
coded in a dcw statement and labeled empty. The 
processor assigns the address. 

The Processor: 

1. allocates a field in core storage to store the constant. 
The number in the count field determines the num- 
ber of positions allocated. 

2. adds the number in the count field to the number 
that was standing in the storage assignment counter 
if there is an * in column 17. The result becomes 
the address of the constant. This address is made 
equivalent to the label, and the two are stored in 
the label table. 

If the programmer has specified the address, this 
address is equated to the label before it is stored in 
the label table. The count field is examined and 
used to create the loading data for the new card, 
but the storage assignment counter is undisturbed. 

3. substitutes the equivalent addresses of labels in the 
operands of symbolic program statements which 
have corresponding symbolic addresses during as- 
sembly of the object program. 

4. produces a card, as part of the object program, con- 
taining the data defined, with a sign if required, 
and instructions to load the constant into core stor- 
age with a word mark in the high-order position. 
This card is loaded with the object program, and 
the constant is stored exactly as the dcw source 
program statement defined it. For blank constants, 
the area is cleared of all existing word marks except 
the high-order word mark for the dcw constant. 

DC — Define Constant (No Word Mark) 

General Description: This statement is the same as a 
dcw statement except that the processor does not set 
a word mark in the high-order position of the con- 
stant. 

Note: The storage area to which the constant is to 
be moved should be cleared of word marks. 

DS — Define Symbol 

General Description: ds statements cause the processor 
to assign equivalent addresses to labels or to assign 
storage for work areas, ds statements differ from 
dcw and dc statements in that no data is loaded into 
the defined area at program load time. A DS-defined 
area is unaffected during the loading of the object 
program. Data, word marks, instructions, previously 



put in the area, remain unaltered. Thus, if ds state- 
ments are used only to define areas, using a clear 
storage routine before loading the program is recom- 
mended. 

Some ds statements affect the storage assignment 
counter. These can be used to bypass areas needed for 
independent routines (instructions or data not in- 
cluded in the source program being assembled) or 
for storing constants for which the programmer has 
selected the actual storage locations. 

The Programmer: 

1. writes ds in the operation field. 

2. writes a symbol in the label field if he wishes to 
refer symbolically to the low-order position of the 
area. 

3. writes the address of the area. 

If the processor is to assign the address, he writes 
an asterisk in column 17 and writes a number in the 
count field to indicate the size of the area. 

If the programmer wants to equate the label to an 
actual address or I/O unit operand, he writes the 
address or I/O operand beginning in column 17. In 
this case no storage will be allocated by the processor, 
so the count field is left blank. 

Note: ds statements cannot be character-adjusted 
or indexed. 

The Processor: 

1. adds the number in the count field to the storage 
assignment counter and equates the resulting ad- 
dress to the label if one appears in the ds statement 
if there is an asterisk in column 17. If an asterisk 
or I/O unit operand appears in the ds statement, 
the processor equates the label to the operand. 

2. substitutes the equivalent addresses of labels in the 
operands of symbolic program statements which 
have corresponding symbolic addresses during the 
assembly of the object program. 

3. leaves the defined area unaltered during object 
program loading. 

Examples: Figure 18 shows a ds statement with an 
asterisk address. This 8-position area which can be 
referred to as inputa will be assigned an actual ad- 
dress which will be the low-order core-storage posi- 
tion occupied by the area when the program has 
been loaded. 

Figure 19 shows a ds statement used to equate a 
label to an actual core-storage address. (This type of ds 
statement is used for assembly only, and does not 
require any storage space in the object machine. Thus, 



LINE 


COUNT 


LABEL 


OPERATION 


(Al OPERAND 


IBI OPERAND 


d 


ADDRESS ±| ' C A H * R - 


1 


ADDRESS |±| C 4 H D » B - 


i 


0,1,0 


OS 


i,M,p,urr,A 


p,s: 


*....!!.. 




I I 1 1 , 11,1 







Figure 18. Defining an Area with a ds Statement 
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Figure 19. ds Statement Equating a Symbolic 
Address to an Actual Address 

it is very useful in creating symbols for addresses that 
must be referenced often in the source program.) An 
input card contains current gross in card columns 40- 
44. When the card is read into 1401 core-storage, cur- 
rent gross will be in positions 0040-0044. The program- 
mer wants to refer to current gross as curgro so that 
he does not have to remember the actual address 
(0044). The statement shown in Figure 19 allows him 
to use curgro as a symbolic address for 0044. 

Figure 20 shows how a ds statement can label a tape 
unit. The programmer can now use tapeI instead of 
%U1 in the A-operand of a magnetic tape instruction. 

Figure 21 shows how a ds statement can bypass 20 
positions of core storage. The constants of the storage 
assignment counter will be increased by 20 when the 
processor encounters this statement. The processor 
will not re -allocate these 20 storage positions. However, 
an actual address in another area-definition statement 
or an instruction patch card can cause data to be 
loaded into them. For example, if the counter con- 
tained 0936 before this statement was processed, it 
would contain 0956 afterward. The dcw statement 
shown in Figure 21 would cause const2 (1875) to be 
loaded into storage positions 0953-0956 at object pro- 
gram load time. 
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Figure 20. Assigning a Label to a Tape Unit 
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Figure 21. Advancing the Storage Assignment Counter 
and Using the Bypassed Area 



DSA — Define Symbol Address 

General Description: A dsa statement causes the three- 
character machine address which the processor has 
assigned to a label to be stored as a constant when 
the object program is loaded. This three-character 
address is called an address constant. Address con- 
stants are used to modify addresses during the exe- 
cution of an object program. 



The Programmer: 

1. writes dsa in the operation field. 

2. may leave the count field blank because an address 
constant is automatically assigned three core-storage 
positions by the processor. 

3. may write a symbol in the label field if he wishes 
to refer later to the address of the address constant. 

4. writes the address of the area in which the address 
constant is to be stored. If the programmer wishes 
to let the processor assign the address, he writes 
an asterisk (*) in column 17. In any case, the address 
will refer to the units position of the three-character 
address constant. 

5. writes the symbol whose equivalent address is to 
be the address constant beginning in column 28 of 
the (B) operand field. This operand may have char- 
acter adjustment and indexing. 

The Processor: 

1. allocates a three-position field in core storage in 
which will be stored the address constant at pro- 
gram-load time. 

2. adds three to the number that was standing in the 
core storage assignment counter if there is an * 
in column 17. The result becomes the address of 
the address constant. This address is made equiva- 
lent to the label, and the two are stored in the label 
table. If the programmer has specified the address, 
this address is equated to the label before it is 
stored in the label table. The storage assignment 
counter is not affected when an actual address is 
used. 

3. looks up in the label table, the equivalent address 
of the symbol in the B-operand and uses this address 
as the address constant. 

4. produces a dsa card containing the address con- 
stant and instructions to load this constant into core 
storage with a word mark in the high-order position 
of the three-character field. 

Examples: Figure 22 shows how a dsa statement can 
develop an address constant. In another part of his 
source program, the programmer has used the sym- 
bol whtax. During assembly, the processor will as- 
sign a three-character machine address to whtax, 
but the programmer does not know what that address 
will be. Yet for an address modification operation he 
needs this machine address (stored as a constant) 
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Figure 22. Area Definition Entries 
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so that he can write an instruction that will move 
it into the A- or B-operand of another instruction at 
program execution time. The programmer wishes 
to refer to the address of the address constant as 

a ADCONA. 

For the example shown in Figure 22 assume that 
the storage assignment counter is standing at 584 
when the dcw statement is encountered. 

The processor will assign 586 as the address of 
whtax and 589 as the address of adcona. These two 
constants will appear in core storage as shown in 
Figure 23, after the object program has been loaded. 
Figure 24 shows another section of the source pro- 
gram that uses adcona. 

Assume that the equivalent address of instr is 829 
and workar has an equivalent address of 763. The 
processor will assemble these two instructions. M 
589 832 A 000 763. When the first instruction is exe- 
cuted in the object program, the second instruction will 
be modified to A 586 763. When the second instruction 
is executed, whtax (18) will be moved to workar. 

Figure 25 shows a dsa statement with an actual ad- 
dress in the B-operand. In this case the programmer 
knows the actual address he wants to store as an ad- 
dress constant, but he does not want to bother to 
translate the actual address to a three-character ma- 
chine address. The dsa statement causes the machine 
address of 12332 (33B) to be stored as an address 
constant in core-storage locations 14088-14090. The 
programmer can refer to the address constant as 14090 
or as addrsI. 
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Figure 23. Constants in Core Storage 




Figure 24. Instructions Using an Address Constant 
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Figure 25. dsa Statement with Actual B-address 
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Imperative Operations (Instructions) 



General Description: SPS imperative operations are 
direct commands to the object machine to act upon 
data, constants, auxiliary d€>vices, or other instruc- 
tions. Thus, they are the symbolic statements for the 
instructions to be executed in the object program. 
Most of the statements in the source program will 
be imperative instructions. The programmer must be 
careful to write instructions that use only the fea- 
tures and devices that are included in the machine 
that will execute his program. 

The Programmer: 

1. writes the operation code for the instruction in the 
operation field. Mnemonic op codes are written left- 
justified in the operation field. Actual op codes are 
written in column 16. (Also, see Coding Sheet). 

2. leaves the count field blank if he so desires. 

3. writes a symbol in the label field if the instruction 
is an entry point for a branch instruction elsewhere 
in the program or, if he wishes to make other refer- 
ence to it. This label is assigned an address equal 
to the core-storage location occupied by the opera- 
tion code of the associated instruction at program 
load time. Thus, the programmer can use this label 
as a symbolic address in another SPS instruction. 

4. writes in the (A) and (B) operand fields, core-storage 
addresses or I/O Unit Addresses. 

Core Storage Addresses. These are symbolic, actual, 
asterisk, or blank addresses representing the A/I or 
B addresses of actual machine-language instructions. 
Symbolic, actual, or asterisk operands may have char- 
acter adjustment and indexing. 
Note: Blank operands are valid: 

a. in an instruction that does not require an operand 
(such as a read instruction). 

b. in instructions in which useful A- or B-addresses 
are supplied by the chaining method such as mcw 

FIELDA FIELDB MCW MCW. 

If an instruction is to have addresses stored by 
other instructions, the operand or operands affected 
must not be left blank. Zeros are recommended as 
shown in the dsa example. 

Input/Output Unit- Addresses. An I/O unit operand 
is valid only in the A-operand field of an SPS state- 
ment. It is the three-character address of an auxiliary 
device such as tape unit (%Ux). 

5. writes the d-character in column 39 if one is needed 
for the instruction. The d-character is always writ- 
ten in actual machine language. 

Note: Blank is not a significant d-character except in 
the Branch-If-Character-Equal instruction. A Branch- 



If-Bit-Equal (BBE) instruction with a blank d-character 
will be assembled as a seven-character instruction. 

The Processor: 

1. substitutes the actual machine-language operation 
code in place of the mnemonic operation code and 
transfers it to the operation-code position of the 
assembled machine-language instruction. Actual op 
codes are simply transferred as they are written in 
an SPS instruction statement. 

2. counts the number of characters that will appear in 
the assembled instruction and adds this number to 
the number that was standing in the storage- 
assignment counter. 

3. allocates a field in core storage that will be occupied 
by the assembled machine-language instruction. 

4. stores the label (if one appears in the label field) and 
its equivalent address in the label table. Remember 
that an equivalent address assigned to a label in an 
instruction statement is the address assigned to the 
position occupied by the operation code when the 
instruction is loaded in the object machine. 

5. looks up in the label table the equivalent addresses 
of symbols used in the operand fields of an instruc- 
tion and inserts them in the actual machine-language 
instructions. 

Converts actual addresses to three-character ma- 
chine addresses and transfers them to the machine- 
language instruction. 

Replaces asterisk addresses with the address oc- 
cupied by the low-order position of the instruction 
in object-core storage, and transfers them to the 
machine-language instruction. 

Transfers an input-output unit operand to the A- 
address portion of the machine-language instruction. 

6. produces a card, as part of the object program, 
which contains the machine-language instruction, 

and the information necessary to load it with a word 

mark in the op-code position. 
Note: All instruction operations: Arithmetic, Data 
Control, Logic Control, and System Control are ex- 
plained in the IBM 1401 Data Processing System Ref- 
erence Manual, Form A24-1403. Operations requiring 
special features (noted by an asterisk in Figure 38) are 
also described in this manual. The programmer should 
thoroughly review the operation code functions before 
attempting to program in SPS. 



Special Mnemonic Operation Codes 

Three special mnemonic instruction operation codes 
are included for use with SPS-1 and SPS-2: Modify 
Address (ma), Load Unit (lu), and Move Unit (mu). 



17 



MA — Modify Address 

The ibm 1401 MA operation code facilitates address 
arithmetic for systems equipped with more than 4,000 
positions of core storage. It causes the data defined by 
the A- and B-operands to be added together and the 
result to be stored in the B -field at program execution 
time. Thus, a new address is developed in the B-field. 

If the ma statement has an (A) operand only, the 
three-character machine address is added to itself and 
the result is stored in the A-field at program execution 
time. 

The SPS-1 processor will accept the ma mnemonic 
operation code and assemble it as an A (Add) com- 
mand, even though the modify-address feature is not 
available on 1400, 2000, and 4000 systems. 

The SPS-2 processor will assemble the ma operation 
code as a modify-address command if the object ma- 
chine has more than 4,000 storage positions. If there 
are 4,000 core-storage positions or fewer, it will assem- 
ble an A (Add) as in SPS-1. 

Example: Figure 26 shows an sps-ma statement coded 
to double the address assigned to adcona. After ma 
instruction is executed in the object program, the 
field whose address is adcona will contain 4=50, the 
machine address equivalent of 1050 (0525 + 0525). 



LU-Load Unit 

The lu mnemonic is convenient to use for instructions 
that address magnetic tape units, RAMAC®, and other 
input-output devices. The processor produces a load 
(l) instruction that will transfer data and word marks 
from the unit to the field whose address appears in 
the (B) operand. Figure 27 shows an lu statement that 
will produce an instruction that will read a tape rec- 
ord (with word marks) into core storage at program 
execution time. 

MU - Move Unit 

The mu mnemonic has the same function as lu, ex- 
cept that word marks are not transferred by the 
move (m) operation it produces. 

Figure 28 shows an mu statement that will produce 
an instruction to read information into storage from 
an ibm 1412 Magnetic Character Reader. 
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Figure 27. lu Statement 
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Figure 26. ma Statement with A-address Only 



Figure 28. mu Statement 
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Processor Control Operations 



The ibm 1401 Symbolic Programming System provides 
four processor control operations. These following 
commands, which are never executed in the object 
program, control the assembly process: 



Operation 


Code 


Purpose 


CTL 
ORG 

EX 
END 




Control 
Origin 
Execute 
End 


CTL — Control 







General Description: The control card is placed at the 
beginning of the source deck, so that the SPS proc- 
essor is able to distinguish the storage sizes of the 
processing machine (machine which assembles the 
object program), and the object machine (the one 
that executes the assembled object program). 

In SPS-1, the ctl card also signifies the availability 
of the punch-release feature to the processing ma- 
chine. The punch-release feature is not used in SPS-2. 

The Programmer: 

1. writes the mnemonic code (ctl) in the operation 
field. 

2. indicates in column 17 the size of the processor ma- 
chine. This will determine the maximum number of 
labels that can be processed per iteration. See 
Labels. 



SPS-1 Codes 

Column 17 Code 
1 
2 
3 



Storage Position 
1400 
2000 
4000 



If a number other than one of these code digits is 
specified, if the card column is blank, or if the ctl 
card is omitted from the source program deck, the 
processor assumes a 1400-character machine. 



SPS-2 Codes 

Column Code 
3 
4 
5 
6 



Storage Position 

4,000 

8,000 
12,000 
16,000 



If a number other than one of these code digits is 
specified, if the card column is blank, or if the ctl 
card is omitted from the source program deck, the 
processor assumes a 4000- character machine. 
3. indicates in column 18 the size of the object ma- 
chine. This will indicate to the processor how much 



storage space will have to be cleared at load time 
for the assembled program. 

For both processors, SPS-1 and -2 the machine 
codes are the same as previously listed. If column 18 
is blank, the processor assumes the object machine 
size is the same as the processor machine. Also, in 
both SPS-1 and -2, the processor assumes the object 
machine to have 1400-character storage if there is 
an illegal code punched in column 18. 
if he is using SPS-1, the programmer indicates in 
column 19 whether the punch release feature is 
available to the processor. This feature is used by 
pass one of the processor. 



Column 19 Code 

1 

blank 



Meaning 

Punch Release Available 

Punch Release Not Available 



If any other digit is punched, the processor as- 
sumes no punch release feature. 

The Processor interprets the machine size and feature 
codes and processes the source program accordingly. 

ORG — Origin 

General Description: An org statement causes the 
processor's storage assignment counter to assign ad- 
dresses beginning at a particular location specified 
by the programmer. If it is entered as the first card 
of the source program, an org card can cause the 
initial assignment of addresses to be at a location 
other than 333. An org statement may be included 
at any desired point in the source program. This will 
cause the counter to be reset and cause all future 
entries to be assigned addresses beginning at the 
particular location designated by the programmer. 
Character adjustment and indexing are not valid in 
an org statement. 

The Programmer: 

1. writes org in the operation field. 

2. writes the actual machine address at which assign- 
ment is to begin left-justified in the (A) operand. 

3. inserts the card in the desired place in the program. 

The Processor: 

1. assigns addresses to instructions, constants, and 
work areas, beginning at the address specified in the 
(A) operand. 

2. causes the storage assignment counter to assign sub- 
sequent addresses beginning at the address written 
in the (A) operand if an org statement is encoun- 
tered at any point in the source program. 

The first symbolic program entry following the org 
statement in Figure 29 will be assigned storage with 
location 900 as a reference point. For example, if the 
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Figure 29. org Statement 

first entry is an instruction, the op-code position of 
that instruction will be 900; if the first entry is a 
seven-character dcw, it will be assigned address 906, 
etc. 

EX — Execute 

General Description: During the loading of the assem- 
bled machine-language program, the programmer 
may wish to discontinue the loading process tem- 
porarily to execute a portion of the program just 
loaded. This can be accomplished through the use 
of an ex statement placed in the source program. 

Using an execute command, the programmer can 
divide his program into several program sections if 
his total program exceeds the limit of available stor- 
age capacity. 

The Programmer: 

1. writes ex mnemonic operation code in the opera- 
tion field. 

2. writes a symbolic or actual address left-justified in 
the (A) operand. This indicates to the processor 
which instruction is to be executed after the loading 
process has been stopped. A blank or asterisk oper- 
and should not be used. 

3. to continue the loading process after the desired 
portion of the program has been executed, the pro- 
grammer must provide as the last instruction of the 
portion executed an instruction to read a card and 
branch to location 0056. This location contains an 
instruction to load the rest of the program. 

If the read area will be altered by the execution 
of the portion of the program, the programmer must 
provide, as the last instruction of the portion exe- 
cuted, instructions to clear the read area, and set 
word marks in locations 0024, 0056, 0063, 0067, as 
well as the read and branch operation as previously 
explained. 



The Processor assembles a branch instruction. This in- 
struction is not part of the object program, but it 
causes the loading operation to halt at the appro- 
priate time. The branch instruction is then executed. 

Example: It is sometimes desirable to execute the ini- 
tial, or housekeeping, steps that are not necessary to 
continuous running or restarting of the program so 
that they may be then destroyed and new instruction 
or constants loaded over them. This routine, called 
an overlay, is executed as directed by an ex state- 
ment. 

In the routine shown in Figure 30 the housekeep- 
ing instructions will be executed, the read area will 
be re-initialized, and the rest of the program will be 
loaded. 

Note: The nop instruction insures that a word 
mark follows the R0056 instruction. 

The condensing routine output is compatible with 
this format. The routine, upon encountering an ex 
card, punches the cards necessary to re-initialize the 
read area for the condensed routine. 

END - End 

General Description: An end statement is a signal to 
the processor that the last card in the source program 
has been processed. If the programmer specifies in 
the (A) operand the actual or symbolic address at 
which the object program is to begin execution, an 
end statement will produce an instruction that will 
start program execution immediately after loading. 
If the (A) operand is blank, the 1401 will halt when 
the last instruction has been loaded. 

The Programmer: 

1. writes end in the operation field. 

2. may write a symbolic blank, or actual machine ad- 
dress (left-justified) in the (A) operand. An asterisk 
operand is not permissible. 

The Processor clears the read area (positions 001-080) 
of core storage and assembles an instruction that 
branches to the address specified in the (A) operand 
after loading is completed. 
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Figure 30. Using an ex Statement in Overlay Programming 



20 



SPS Processor Operations 



The ibm 1401 Symbolic Programming System is com- 
posed of five separate programs : 



• Pre-Process Listing Routine 

• Processor — Pass One 



Processor — Pass Two 



Processor Assembly Program 



• Post-Process Listing Routine 

• Condensing Routine 

The processor program listings and a table of ad- 
dress displays for 1401 halts is found in the ibm 1401 
Program Library publication: Symbolic Programming 
Systems, SPS-1 and SPS-2 (File Number 2.0.003). 



Pre-Process Listing Routine 

The SPS Pre-Processor Listing Routine makes it pos- 
sible for the programmer to detect many coding or 
keypunching errors in the program deck before as- 
sembly. 

The Operator: 

1. puts sense switch A on. 

2. places decks to be loaded behind the routine in the 
read hopper. 

3. resets the 1401 and loads the program. 

The Routine: 

1. restores the printer carriage. All input cards to the 
program are selected to stacker 1. 

2. prints the card image and messages into eleven 
fields on the printed page in the following format: 

Page Number (Card Columns 1-2). Zeros are sup- 
pressed in this listing. 

Line Number (Columns 3-5). Line number is printed 
as is. 

Count (Columns 6-7). Zeros are suppressed in listing. 
The routine determines the count for instructions 
and dsa cards. 

Label (Columns 8-13). The routine prints only the 
labels to be used by the processor. Thus, a label on 
an org card would not be listed. 

Operation (Columns 14-16). This symbolic operation 
code is reprinted. 



(A) Operand (Columns 17-27); (B) Operand (Columns 
28-38). These are reprinted from the card except 
that there is a space between character adjustment 
and the indexing indicator. Only the digit position of 
the index appears. 

d-Character (Column 39). This actual machine-lan- 
guage modifier is reprinted as is. 

Location. Each time an org card is sensed, and at the 
end of the object program, the highest storage ad- 
dress used is printed in the location column. It is not 
printed for the first origin card unless it has been 
preceded by fields whose addresses are assigned by 
the processor. 

SPS-1 Error Notes 

In the pre-process listing, the processor may indicate 
in code, one of five errors under this field: 

Err 1. Page-Line Sequence. Page or line number out 
of sequence. 

Err 2. Count. Indicates illegal count for dc and dcw 
cards. If the count is greater than 32, only columns 
23-55 are printed. 

Err 3. Illegal Op Code. Indicates illegal mnemonic 
operation code. A ctl card in any other position than 
the first in the source deck will be processed as an 
instruction card and thus give this error. 

Err 4. Illegal Operand. Indicates illegal operand. An 
instruction card containing a non-blank address with 
the high-order position blank, will cause this error. 
For dcw, dc, dsa, and ds statements, this error is 
indicated when the (A) operand is blank, symbolic, 
or % (except for ds). 

Err 5. Column 56 Not Blank. Indicates column 56 is 
not blank. Note: Information in columns 56-74 can 
cause improper processing when assembling. 

SPS-2 Error Notes 

Because of increased storage available to the routine, 
additional error-checking features are included. The 
complete error legend is: 

Err 1. Page-Line Sequence. Indicates that a page or 
line number is out of sequence. 
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Err 2. Count. Indicates the count for a dc or dcw is 
greater than 32 or less than 1, or that the program- 
mer has not indicated the count for a dc, dcw, or ds 
statement. 

Err 3. Label. Indicates that the first character in a label 
is blank, numeric, or a special character. Also recog- 
nizes a ds card without a label whose (A) operand 
is not an asterisk (*). This type of card is meaning- 
less to the processor and is noted as a potential error. 

Err 4. Illegal Op Code. Indicates illegal mnemonic 
operation code or a blank operation code field. A 
ctl card in any other position than the first in the 
source deck will be processed as an instruction card 
and thus give an illegal op code error. (These cards 
will be created as dcw's if there is a count. ) 

Err 5. Illegal (A) Operand indicates: 

1. An instruction with a (B) operand but not (A) op- 
erand. 

2. A blank or symbolic (A) operand for a dcw, dc, ds, 
or dsa statement. 

3. A non-numeric address for an org statement. 

4. An asterisk address for an ex or end statement. 

5. In a general operand error: 

a. The indexing is not 1, 2, or 3. 

b. Character adjustment is non-numeric or left- 
justified. 

c. Character adjustment sign is not + or — . 

d. The first character of the operand is blank, but 
the balance of address is not. 

e. The operand begins with % but is greater than 
three characters. It does not appear to be an 
I/O device. 

f . The first character is numeric but the remaining 
are not. 

g. The numerical operand is fewer than four char- 
acters. 

h. The numerical operand is greater than the ob- 
ject-machine size specified. 

i. The first character of the address is the asterisk 
(*) but the balance is not blank. 



Comments (Columns 40-55). The comments in a source 
program card are entered in this field on the printed 
page. 

The preceding format is adhered to in the pre- 
process listing with the following exceptions: 

1. Comments cards. The routine lists the comments 
(columns 8-55) centered in the middle of the page. 

2. Constants. Constants are right-justified beyond the 
d-character column. The count determines the 
length of a constant. In this way, low-order blanks 
appear more distinctly. The sign (column 23) ap- 
pears in the high-order position. 



Additional Comments — SPS-1 

In addition to the preceding listing, the pre-process 
routine will: 

1. print at the end of the source program, the number 
of significant labels in the entire object program. 

2. cause the highest storage address assigned by the 
processor (exclusive of the actual address assigned 
by the programmer) to be printed. 



Additional Comments — SPS-2 

The additional listing features for the SPS-2 pre- 
process routine are: 

1. If the first card in the source deck is not a control 
card, no control card is printed on the first line 
after the heading. 

2. If the last card is not an end card, no end card is 
printed below the listing. 

3. At the end of the source program listing, the total 
number of cards and the highest storage address 
that the processor will assign (exclusive of actual 
addresses assigned by programmer) are printed. 

End Card Stop. When the processor encounters an end 
card, the highest storage address and number of 
labels (and the card count, in the case of SPS-2) are 
printed. If there are more cards in the reader, the 
carriage is restored and the routine restarts at the 
beginning of the program. If sense switch A is on 
and it is the last card, there is a programmed halt. 
Pressing the start button restarts the program. 



Err 6. Illegal (B) Operand indicates the sign position 
(column 23) is not +, — , or blank in a dcw or dc 
statement or a general operand error. See item 5 
under Err 5). 

Err 7. Columns 56-74 Not Blank. The information in 
Columns 56-74 can cause an improper assembly. 



Processor Assembly Program 

Because of the serial nature of the 1401, the processor 
must be a two-pass system (Figure 31). In general, pass 
one assigns all imperative and declarative statements 
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Pass 2 



Figure 31. ibm 1401 SPS Assembly Procedure 



an equivalent machine address and puts the label, if 
any, and Its equivalent address into a table in storage. 
Pass two, upon encountering a symbolic operand, 
searches the table for the label and translates it into 
the machine-language equivalence. 

Although one execution of passes one and two may 
be sufficient to assemble certain programs, it is likely 
others may require another iteration (complete execu- 
tion of passes one and two) to complete the assembly. 
The number of iterations required to assemble a com- 
plete program depends upon the number of labels 
used in the source program and the storage capacity of 
the 1401 on which the program is being assembled. 



The number of labels that can be processed in one 
iteration is as follows: 



SPS-1 




Processor Machine Size 


Number of Labels 


1400 


40 


2000 


100 


4000 


300 


SPS-2 




4000 


260 


8000 


660 


12000 


1060 


16000 


1460 



If the number of labels in a source program exceeds 
the quantity allowed, it is necessary to reiterate. Thus, 
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the output from the initial run of the processor be- 
comes input to a second run. This is continued until 
all labels are processed. 

Processing — Pass One 

To prepare the source deck for processing, the opera- 
tor must: 

1. Be sure that the first card in the source deck is a 
ctl card, and that the last card is an end card (Fig- 
ure 32). 

2. Put the source deck between the processor program 
sections labeled pass one and pass two and put 
them in the read hopper. 

3. Reset the computer and press the load button. The 
processor cards for pass one will be loaded into 
core storage, and program execution will begin 
automatically. During processor program execution, 
the SPS pass one deck will fall into the normal read 
stacker, the source deck into stacker 1, and the 
punched output deck into stacker 4. 

During program execution the processor: 

1. Changes the mnemonic operation codes to actual 
machine-language codes. 

2. Assigns an address in core storage to each instruc- 
tion and field designation. 

3. Prepares a table of symbolic label and assigns an 
equivalent address to each label. 

4. Allocates storage for instructions, work areas, and 
constants. 

5. Punches out cards and drops them into stacker 4. 
These cards contain information that will be used 
by the processor during the second pass. The num- 
ber of positions occupied by each instruction is 
automatically calculated and punched into the 
count field (columns 6-7) of these cards. 

6. Loads automatically the processor program cards 
for pass two. This loading occurs if the end card of 
the source deck has been processed. 

Note: Because pass one generates the symbol table, 
it is not possible to stop assembling at the end of pass 
one and continue with pass two at a later time. How- 
ever, it is possible to postpone the completion of an 
assembly after any complete iteration. 




SPS Pass Two 
END Card 

Object Program 
CTL Card 



Deck to be 
assembled 



VA 



SPS Pass One 



Figure 32. SPS Assembly Card Order 



PROGRAMMED HALTS — PASS ONE 

SPS-1 Illegal Mnemonic Operation Code. The proc- 
essor causes the 1401 to halt, if the card just read 
(the last card in stacker 1) has an illegal mnemonic 
operation code. 

If the punch release option is used and there is 
an illegal mnemonic, an output card is punched 
anyway. It is, however, selected to stacker 8/2 and 
should be discarded by the operator. 

To restart the processor, the operator should: 
1. press start to bypass the card, or repunch the card. 
Put it into the hopper as the first input card and 
replace the rest of the source program deck. Press 
start, or if it is an instruction that is not an eight- 
character branch-on-blank instruction, restart at the 
address noted in the ibm 1401 Program Library SPS 
listing. In the assembled deck, the actual operation 
code will be left blank. This error will be noted in 
the post-process listing. 

SPS-2 Illegal Mnemonic Operation Code. The proc- 
essor causes a halt if the card just read has an illegal 
mnemonic operation code. The operator should fol- 
low the same instructions as for SPS-1. 

processor stops with reader empty 

In pass one of SPS-1 and SPS-2, if all cards have been 
processed, and there is no programmed halt, the pro- 
gram may stop on a read operation code (the op regis- 
ter displays a I). This can occur in the following cases: 

1. The program has not yet sensed an end card. 

2. Pass one is completed and the program is trying to 
load pass two. 

Processing — Pass Two 

At the end of pass one, pass two is automatically 
loaded. It is possible, however, to load pass two by 
pressing the load button. 

During the loading of pass two, if no additional 
iterations are required, three cards will fall into stack- 
ers. The programmer should: 

1. discard the card in stacker 8/2. This is a duplicate 
of the end card punched by pass one. 

2. clear the storage routine of the assembled deck 
with the two cards in the normal punch stacker. 
Used at loading time for the assembled program, 
these cards will clear the amount of storage of the 
object machine which was specified on the ctl 
card. 

After the loading of pass two, the operator: 

1. places the output from pass one (stacker 4) in the 
read hopper when the loading of pass two has 
stopped. 

2. presses the start button to resume processing. 
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During pass two the processor: 

1. processes the operands by substituting actual ma- 
chine locations for symbolic operands and perform- 
ing character-adjustment operations. 

2. changes numerical machine address assigned by the 
programmer into proper machine address when an 
alphabetic or special character is required by the 
1401. For example, the core-storage address 1213 
would be changed to S13 during this pass. 

3. punches object program in a self-loading one- 
instruction-per-card format. Each card of the object 
program will contain the source program statement, 
the corresponding assembled instruction, or data, 
and the information required to load the assembled 
instruction. 

These object-program cards are selected into the 
normal punch stacker. The first two cards (see 
Notes) contain a self-loading clear-storage routine 
which clears core storage of all existing characters 
and word marks. The third card in the normal 
stacker, punched with the object program, will con- 
tain instructions to initialize the read area with 
word marks for the self-loading instruction cards. 
This is a bootstrap card (see Processor Output). 

4. Causes the input deck (output of pass one) to be 
selected to stacker 8/2. These are to be discarded 
by the programmer. 

ADDITIONAL ITERATIONS 

If additional iterations are required, the machine will 
attempt to read a card (the first card of pass one). 

If the 1401 attempts to read a card after pass two 
of the assembly program, an additional iteration is 
needed. If this is the case, the operator: 

1. places the output from pass two (from normal punch 
stacker) between passes one and two. 

2. places the combined deck into the read hopper. 

3. presses the start button to repeat the operating 
procedure. 

Note: For all additional iterations, all input cards 
are selected to stacker 8/2. These cards are to be dis- 
carded after assembly. 



FIRST CARD STOP — PASS TWO 

If pass one has been completed and the next card does 
not appear to be the first card of pass two, the SPS-2 
processor will halt. To load pass two, the operator: 

1. runs out the cards. 

2. makes the first card of pass 2 the first input card. 

3. resets the machine. 

4. presses the load button. 



END OF JOB 

After the last card has been processed by pass two, 
the machine will come to a halt if this is the last 
iteration. Pressing the start button at this point will 
have no effect. 

PROCESSING STOPS WITH READER EMPTY — PASS TWO 

In pass two of SPS-1 and SPS-2, if all cards have been 
processed and there is no programmed halt, the pro- 
gram may stop on a read operation code (a 1 in the op 
register). This occurs when: 

1. the program has not yet sensed an end card. 

2. the program has determined that reiteration is nec- 
essary and is trying to load pass one. 

Non-Programmed Halts — Passes One and Two 

The processor may come to an unexpected halt if the 
following errors are encountered: 

1. end card misplaced (SPS-1 only). Because the proc- 
essor automatically loads pass two after processing 
an end card, an end card placed in the middle of an 
object program will cause the card following it to be 
treated as the transfer card of pass two. This means 
that the page-line number is treated as an instruc- 
tion and, if the tens digit of the page-line number is 
a valid input-output command, it will be executed 
prior to the halt. There is no convenient way to con- 
tinue the assembly at this point because of the 
end-of-program procedure. 

2. Illegal indexing indicator. If an indexing column 
(column 27 or 38) is punched with a special charac- 
ter, pass two will stop. The units position of the 
storage address displayed will show the special 
character with zoning removed. 

3. Illegal dcw or dc count (SPS-1). If the processor 
encounters a dcw or dc card with a count greater 
than 57 (a legal dcw or dc card may only define a 
maximum field of 32 positions) and it is necessary to 
sign the constant (column 23 contains + or — ) the 
sign will be placed somewhere with storage locations 
081-122. However, locations 081-099 contain con- 
stants used by the processor. Consequently, it is 
possible for these constants to be changed by an 
illegal dcw or dc count in the object program. This 
error will be caught in the pre-process listing rou- 
tine. 

For both passes, locations 081-099 should always 
contain: 
Storage Location Contents 



081-089 
090 

091-095 
096 



097-099 



01N001056 

or 1 
TLB 10 

T for 1 .4k object machine 
Z for 2k object machine 

1 for 4k object machine 

The highest storage address of the 
processor (e.g. 199 for a 4k machine) 
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Note: In SPS-2, an illegal dc or dcw count will not 
interfere with locations 081-099 because the processor 
does not store any constants in these locations. 

Miscellaneous Operating Information 

1. Bypassing a card in pass one other than a comments 
card will cause an improper assembly. In pass two, 
if a card is bypassed, it will have no effect on the 
assembly of other cards. 

2. It is not possible to reassemble an assembled deck. 
However, an assembled deck may be reproduced 
leaving columns 56 through 75 blank. The repro- 
duced deck may then be reassembled. 

Processor Output 

The processor output, i.e., the assembled deck, con- 
sists of two clear-storage cards, a bootstrap card, ancl 
the assembled program. 

CLEAR-STORAGE CARDS 

The first two cards in the normal punch stacker are the 
clear-storage routine for the assembled deck. At load- 
ing time for the assembled deck, these cards will clear 
the amount of storage specified by the ctl card which 
designates the object machine size. The arithmetic 
overflow latch is set by the clear-storage card. 

BOOTSTRAP CARD 

This card, the third in the normal punch stacker, ini- 
tializes the read area with four word marks necessary 
to make the assembled deck self-loading. The locations 
of these word marks are 024, 056, 063, and 067. 



Assembled Program 

The assembled program cards are duplicates of the 

input cards with the assembled information in columns 

56-75. 

Columns 56-75. In assembled instruction and constants 
cards, columns 56-62 contain the instruction neces- 
sary to bring the data into storage. An ex card 
assembles an unconditional branch in this field (col- 
umns 56-62) while an end card assembles a clear- 
the-read-area-and-branch instruction. All other cards 
generate a bypass instruction 

N 001 056 (NOP 0001 0056). 

Columns 63-66. All assembled program cards contain 
a 1056, the instruction R0056 in columns 63-66. This 
causes the 1401 to read a card and branch to execute 
the instruction in column 56 and the next card. 

Columns 67-74. This field is blank except for instruction 
and ds cards. In construction cards, columns 67-74 



contain the assembled instruction. In ds cards, col- 
umns 67-70 contain the four or five-character address 
of the symbol. This is saved by the processor for 
listing purposes. 

Column 75. This column contains a card code used by 
the post-process listing and condensing routines to 
determine the card type. 



Code 

blank 
blank 

F 

5 

G 

D 

Q 

J 

R 

2 



Card Type 

Instruction 
Comments 

DCW 

DC 

DSA 

DS 

EX 

END 

CTL 

ORG 



OUTPUT FORMAT 

According to card type the assembled program output 
format is: 







Column 


Contents 


Instruction 


Card 


56 


L 






57-59 


Low-order card position of the 
instruction (equals 66 plus 
instruction length). 






60-62 


Low-order storage address 






63-66 


1056 






67-74 


the assembled instruction 






75 


Blank 


DCW, DC 


Card 


56 


L for DCW; M for DC 






57-59 


Low-order card position (equal 
23 plus constant length) 






60-62 


Low-order storage address 






63-66 


1056 






67-74 


Blank 






75 


F for DCW; 5 for DC 


DSA Card 




24-26 


Assembled DSA 






56-59 


L026 






60-62 


Low-order storage address 






63-66 


1056 






67-74 


Blank 






75 


G 


DS Card 




56-62 


N001056 






63-66 


1056 






67-71 


4- or 5-character address of 
symbol 






72 


Blank 






75 


D 


EX Card 




56 


B 






57-59 


Assembled (A) Operand 






60-62 


blank 






63-66 


1056 






67-74 


blank 






75 


Q 


EX Card (no [A] 


56-59 


.063 


operand) 












60-62 


blank 






63-66 


1056 






67-74 


blank 






75 


Q 
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END 


56 


/ 




57-59 


Assembled (A) Operand (if [A] is 
blank, 000 is assembled) 




60-62 


080 




63-66 


1056 




67-74 


blank 




75 


J 


CTL, ORG, 


56-62 


N001056 


COMMENTS 






Cards 


63-66 


1056 




67-74 


blank 




75 


R for CTL, 2 for ORG, blank for 
COMMENTS. 



UNDEFINED SYMBOLS 

Undefined symbols have ### (# * s a 3-8 punch) 
substituted on the card for an actual address. For ex- 
ample, assume the symbolic instruction b labelI ap- 
pears in a source program. However, label! does not 
appear in the label field of any statement in the same 
source program. Therefore, b labelI will be assem- 
bledB###. 

Patching 

Correction or revision of an assembled deck is accom- 
plished through a procedure known as patching. This 
makes it possible for the programmer to change the 
object program without having to reassemble the en- 
tire source program. 

To prepare a patch card, the programmer: 

1. inserts the count in columns 6-7. This is necessary 
for the condensing and post-process listing routine. 

2. uses the following format according to card type: 

FOB CONSTANTS: 

a. punches the constant beginning in column 24. 

b. punches in column 56 an l for dcw cards or an 
m for dc cards. 

c. punches in columns 57-59 a zero followed by the 
number of the card column that contains the low- 
order position of the constant. This number is 
equal to the length of the constant plus 023. 

d. punches in columns 60-62 the address of the 
core-storage location that will contain the units 
position of the constant. 

e. places 1056 in columns 63-66. 

f . punches in column 75, a 5 for a dc card or an f 
for a dcw card. 

for instructions: 

a. punches the assembled instruction in actual ma- 
chine language in columns 67-74. 

b. places an l in column 56. 

c. punches in columns 57-59 a zero followed by the 
number of the card column that contains the low- 
order position of the instruction. This number is 
equal to the length of the instruction plus 066. 



d. punches in columns 60-62 the address of the 
core-storage location that will contain the units 
position of the instruction. 

e. punches 1056 in columns 63-66. 

for end cards: 

a. punches a "slash" (/) in column 56, and 080 in 
columns 60-62. 

b. punches the machine address of the first instruc- 
tion to be executed after loading the object pro- 
gram in columns 57-59. 

c. punches a j in column 75. 
for ex cards: 

a. punches a b in column 56. 

b. punches the machine address to which the load 
program should branch in columns 57-59. 

c. punches a q in column 75. 

The programmer places the patch cards in the as- 
sembled program before the assembled end (or ex) 
card. 

Example: In a lengthy program, a programmer may 
wish to insert a statement or subroutine in the as- 
sembled program without having to reassemble. This 
may be accomplished by a patching procedure in 
which a branch instruction is substituted for an- 
other one in the main routine to cause a branch to 
the subroutine or instruction. The last statement in 
the subroutine must then cause a branch back to 
the main routine. 

Suppose the programmer decides to insert an in- 
struction after the branch on unequal compare op- 
eration which will move mannoI to fielda before 
the sw operation. The original assembled program 
post-process listing looks like this: 

C MANNOI 0108 1126 C008108 

This card removed 
B ERROR /1133 BS84/ from assembled 

Q.6CK 

SW 0109 0116 1138 ,109116 

The subroutine would look like this in SPS and as- 
sembled instructions : 



Storage 
Address 


SPS Instructions 




Assembled 
Instructions 


1133 


B 


2084 


/ 


B-84 


2084 


B 


ERROR 




/ BS84/ 


2089 


MCW 


MANNOI 


FIELDA 


M008208 


2096 


B 


1138 




B/38 


2100 


NOP 

(The NOP instruction guarantees 
that a word-mark is set after the 
unconditional branch.) 


N 



Each instruction is punched in assembled form in a 
patch-card format. The initial branch operation is sub- 
stituted for the branch operation in the assembled pro- 
gram and the rest of the subroutine is placed before 
the assembled end, or ex card. 
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Post-Process Listing Routine 

The Post-Process Listing Routine is used to list the 
object program after the assembly is complete. The 
programmer uses this listing to trace machine stops 
and assembly errors. The listing gives the assembled 
instruction as well as the original one. 

The Operator: 

1. puts the sense switch A on. 

2. places into the read hopper any number of assem- 
bled decks to be listed. 

3. resets the 1401 and presses the load button. 

The Routine: 

1. automatically restores the print carriage. All input 
cards are selected to stacker 1. 

2. prints the card image and error messages in twelve 
fields on the printed page in the following format: 

Page Number (Card Columns 1-2). Zeros are sup- 
pressed in this listing. 

Error indicator (□). A lozenge printed between the 
page and the line number indicates that at least one 
of the following errors appears on the card: 

a. An undefined symbol in the (A) or (R) operand. 

b. A blank operation code in the assembled instruc- 
tion. 

c. Data to be loaded has been assigned an address 
in the read area. 

d. A constant has been assigned a count greater 
than 32. 

e. The count column in a dc, dcw, or instruction card 
is blank or zero. This will cause a halt in the con- 
densing routine. Note: A blank instruction count 
cannot occur as a result of assembling. However, 
it may have been inadvertently left out of patch 
cards. 

Line Number (Columns 3-5). Line number is printed 
as is. 

Count (Columns 6-7). Zeros are suppressed in this list- 
ing. 

Label (Columns 8-13). The routine prints only the la- 
bels used by the processor. 

Operation (Columns 14-16). The symbolic operation 
code is reprinted. 

(A) Operand (Columns 17-27). This is reproduced from 
the card image except that there is a space between 
character adjustment and indexing. Only the digit 
position of the index appears. 

(B) Operand (Columns 28-38). Reprinted same as (A) 
Operand. 



d-Character (Column 39). This machine-language mod- 
ifier is reprinted as is. 

Location (Columns 60-62). This is the four- character 
address of the data. It refers to the high-order posi- 
tion for instructions and the low-order position for 
constants. 

Instruction (Columns 67-74). The assembled instruction 
is printed in this field. 

Comments (Columns 40-55). Comments in the source 
program card are entered in this field. 

The preceding format is adhered to in the Post- 
Process Listing with the following exceptions: 

1. Comments cards. The routine lists the comments 
(columns 8-55) centered in the middle of the page. 

2. Constants. Constants are right-justified beyond the 
d-character column. The length of a constant is de- 
termined by its card count, and the sign (column 
23) appears over the units position of the constant. 
Each page has a heading line which identifies the 

respective columns. The identification (columns 76-80) 
appears at the extreme right of this line. 

Unassembled-Card Listing. If a card does not appear 
to the listing routine as an assembled card, the word 
unassembled card is printed out with a complete 
reproduction of the card data. This error is most 
likely to occur when the operator attempts to list 
an unassembled deck, fails to reiterate a partially 
assembled deck, or lists the output from pass one. 

Clear Storage, Bootstrap Card Listing. At the begin- 
ning of the listing, the clear storage and bootstrap 
cards are reproduced. If any one card is missing, or 
if the cards are not in proper order, one of the fol- 
lowing messages appears: FIRST CLEAR STOR- 
AGE CARD MISSING, SECOND CLEAR STOR- 
AGE CARD MISSING, NO ROOTSTRAP CARD. 
It is not necessary, however, that the clear storage 
cards be present when listing. 

SPS-2 Listing Feature. In addition to the preceding 
listing, the SPS-2 processor prints, at the end of the 
program listing, the total number of cards, exclusive 
of clear storage and bootstrap cards, and the total 
number of errors detected by the routine. 

End of Program Procedure. When the routine senses 
an end card and it is the last card, the program 
halts. Pressing the start button restarts the program. 
If there are more cards in the reader after an end 
card is processed, the carriage is restored and control 
transfers to the beginning of the program. 
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Condensing Routine 

The SPS Condensing Routine is used to convert the 
one-instruction-per-card assembled program deck into 
a "condensed" deck which contains multiple instruc- 
tions per card. While not considered part of the proc- 
essor, the condensing program is supplied with the 
program to enable the user to reduce the number of 
cards in any program deck. 

Each condensed card will contain up to 38 charac- 
ters of information from the object program or seven 
word-mark locations, i.e., fields or instructions, which- 
ever is reached first. The condensed card contains suf- 
ficient information to render it self-loading. 

The condensing routine causes a self-loading card 
which initializes the read area with appropriate word 
marks and begins the loading process to be punched. 
If the two cards of the clear storage routine are entered 
into the condensing routine, they will be punched out 
before the self-loading load card. 

As each card of the assembled object program is 
read, the assembled data is transferred to the con- 
densed card-output field. The address of the first field 
placed on each card determines the starting location 
for the card. 
The Operator: 

1. places any number of assembled decks to be con- 
densed behind the routine. 

2. presses the load button. 

The Routine: 

1. causes input cards to be selected to stacker 1. It 
causes output cards to be selected to the normal 
punch stacker. 

2. causes the assembled deck to be punched out in a 
self-loading condensed deck. Each card has approxi- 
mately six data fields in the following format: 

Card Columns Meaning 

1-38 This field contains the data to be loaded 

into storage (maximum of 38 characters). 

39-55; Contains up to 6 four-character set-word- 

63-70 mark instructions. If there are fewer than 

six sw instructions, 1056 (R0056) appears 
in the next available set word mark loca- 
tion. This causes the loader to read a card 
and branch to the load instruction of the 
next card. 

55 Contains a 1 denoting a read-a-card in- 

struction. This instruction is present only 
if six set-word-mark instructions are 
present. 

56-62 Contains the instruction necessary to load 

the data (columns 1-38) into storage. 



71-74 


B039 (Branch to 0039) 


75 


Blank 


76-80 


Identification 



DC CARDS 

In the condensed deck, the data is loaded into storage. 
This differs from the one-per-card loader in which a 
dc card is moved into storage. Consequently, if a dc is 
the first item in the data to be loaded by the condensed 
deck loader, a word mark is first set in the high-order 
position of the dc, but is then removed by a clear- 
word-mark instruction. Because data is loaded into 
storage, all existing word marks are cleared in the 
storage locations before entry. 

EX CARDS 

The programmer may insert data cards behind an ex 
card. To accommodate the condensed card loader, the 
condensing routine converts the instructions, which 
were written by the programmer to return control to 
the load routine after the program section has been 
executed. If data is not inserted, these cards will not 
affect the loading procedure. 

END CARD 

To facilitate patching of the condensed deck, the end 
card instruction is the only information present on the 
last card. 

PATCHING 

Patching a condensed deck requires that the data to 
be loaded in storage is placed in columns 1-38. The 
load instruction is placed in columns 56-62, and 1056 
is placed in columns 63-66. 

PROGRAMMED HALTS 

There are three programmed halts in each SPS Con- 
densing Routine: 

SPS-1 

Illegal Card. The routine causes a halt if, in an in- 
struction or constant card, any position in columns 
57-59 is blank or if column 57 is not zero. This error 
cannot occur as the result of assembling but might 
appear on patch cards. 

Blank Count Column. If the count column for instruc- 
tion or constants is blank, the routine halts. This 
generally occurs because of a count left out in patch 
cards. 

End of Job. Each time an end card is processed, the 
machine halts. After an end card is punched, the 
routine causes it to be selected to the normal stacker. 
A blank dummy punch-instruction card falls into 
stacker 8/2. 



29 



SPS-2 

N on- Assembled Card. The routine halts if the input 
does not appear to be an assembled card. 

Illegal DC, DCW Count. If the count field on a dc or 
dcw card contains a number greater than 32 or less 
than 1, the routine halts. 

End of Job. This is the same halt as explained under 
SPS-1. 

Restart After Error Halt. Pressing the start button 
after an error halt will cause the machine to bypass 
the error card and read the next card or, in the case 
of an end card halt, to restart the program. 

To load and execute the assembled program, the oper- 
ator 

1. places the assembled deck (clear storage cards, boot- 
strap card, and assembled program) into the hopper. 

2. puts data cards behind the assembled program. 

3. presses the load button to begin the loading pro- 
cedure. 
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IBM 1401 SPS Sample Program 



Figure 33 shows a block diagram for a payroll routine. 
A current earnings card and year-to-date card (Fig- 
ure 34) are read by the 1401 and complete an em- 
ployee's check and earnings statement (Figure 35). 

Information from the year-to-date card is updated 
by the information in the current earnings cards and a 
new year-to-date card to be punched. 



The first card read should be the current earnings 
card. If it is the year-to-date card (X74), there is a 
branch to the update routine, and the unequal com- 
parison in man numbers results in a machine stop. In 
the first half of the program, the current information 
is edited and moved to the print area and also to 
work areas in the punch area. The first line of the 



Current Earnings Card 



Move Man ^ 
To Check 



Move Name 
To Check 



Set Word Marks 

For Current 

Input 



Start 



NX 74 




Move Date 
To Check 




Branch To Start 


' 






i 




Move Man * 
To Statement 




Clear Print Area 


* 




t 




Move & Edit 

GROSS 
For Statement 




Clear Read Area 




i 












< 




Print 1st Line 


Move & Edit 

WHTAX 
For Statement 






i 


i 




Skip to Line 2 
After Print 


i 


r 




Move & Edit 

FICA 
For Statement 




i 


, 




Move NETAMT 
To Storage 


I 






, 


i 


Move & Edit 
MISC. DED 
For Statement 








Move WTHTAX 
To Punch 




, 


I 


1 






Move Current 

FICA 

To Punch 


Move Man * 
To Punch 






f 








i 


i 


Move Dept * 
To Punch 








Move Current 

GROSS 

To Punch 














i 



Year-To-Date Card 



X 74 



Set Word Marks 
For YTD Input 



Select 
Stacker 



Compare Man * 
To Punch Area 



Halt 



Press Start Key 




Branch To Start 




Update -Totals 

On New YTD 

Card 



Move Dept * 
To Check 



Move & Edit 
NETAMT 
For Check 



Move & Edit 

NETAMT 
For Statement 



Move & Edit 
YTD GROSS 
For Statement 



Print Statement 

Punch New 

YTD Card 




Move & Edit 
YTD WTHTAX 
For Statement 




i 


, 


> 








Move & Edit 

YTD FICA 

For Statement 


Skip To Line 1 
After Print 










i 


k 






Move X 






To P 


unch 









Figure 33. Block Diagram for Sample Problem 
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check and earnings statement is printed. The program 
checks for end of form. 

The second half of the program, a routine labeled 
update, causes the year-to-date information to be 
added to the current information, which is in the 
punch area and causes the updated year-to-date card 
to be punched. The new year-to-date information is 
also edited and moved to the print area, and the sec- 
ond line of the check and earnings statement is printed. 



Then a skip to the next form is executed. 

Figure 36 is an ibm 1401 SPS source program written 
for the payroll listing routine. Figure 37 is the SPS 
output program listing. 



Mnemonic Operation Codes 

Figure 38 shows the ibm 1401 SPS Mnemonic Opera- 
tion codes. 



CURRENT EARNINGS CARD 



Depf, 
No. 



Man 
No. 



Social 

Security 

No. 



-35 



36- 



Total 
Misc . 
Ded. 



Current 
Gross 



Current 
Wh Tax 



Current 
FICA 



Current 
Net 



YEAR-TO- 
DATE CARD 



Dept, 
No. 



Man 
No. 



Year- 

To-Date 

Gross 



Year- 
To-Date 
Wh Tax 



22 — 26 



Year- 

To-Date 

FICA 



Not Used 



74 75- 



Figure 34. Current Earnings and Year-to-Date Cards 



General Manufacturing 
Corporation 

To the Order of: 
231U0 G J KANE 



72U 



NEW VALLEY 
NATIONAL BANK 



Pay Exactly: 



Dare 
JAN 27, 1961 



$ 130.26 



Treasurer 



EARNING STATEMENT 



Man 
No. 


Gross 


WH. Tax 


FICA 


Misc. 
Ded. 


231U0 


* 175.00 


$ 31.90 


$ 5.66 


$ 7.18 








Net Pay 


YTD 
Gross 


YTD 
WH. Tax 


YTD 
FICA 




* 130.26 


$ 875.00 


$ 159.50 


$ 28.20 



Figure 35. Employee Check and Earnings Statement 
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ERROR 




A 


C2C 




MANNCL 
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C5C 
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NET AM 
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C6C 


12 


CATE 


DCW 
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END 
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LOC INSTRUCTION COMMENTS 



EDIT YTD WHTAX 
FOR STATEMENT 
EDIT YTD PICA 
FOR STATEMENT 
MOVE ZONE TO PCH 
SKIP 1 AFTER PRT 
PRINT £, PUNCH 
CHECK LAST CARD 
CLEAR READ AREA 
CLEAR PRINT AREA 
CL PNCH £ BRANCH 
LAST CARD HALT 
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299 
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1225 
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F 
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1228 
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AREA DEFINITION 




Mnemonic 
Operation Code 


Description 






DCW 
DC 
DS 
DSA 


Define Constant With Word Mark 
Define Constant (No Word Mark) 
Define Symbol 
Define Symbol Address 




INSTRUCTIONS 


Type 


Mnemonic 
Operation Code 


Description 


Machine Language 
Equivalent 


Arithmetic 


A 

S 
*M 
*D 

ZA 

ZS 


Add 

Subtract 

Multiply 

Divide 

Zero and Add 

Zero and Subtract 


A 

S 

@ 

% 

? (Prints as &) 

J (Prints as -) 


Data Control 


MCW 
*MCM 

MCS 

MN 

MZ 

MCE 

LCA 

SW 

CW 

CS 
*MIZ 

MA 
*SAR 
*SBR 


Move Characters to A or B Word Mark 

Move Characters to Record or Group Mark 

Move Characters and Suppress Zeros 

Move Numeric 

Move Zone 

Move Characters and Edit 

Load Characters to A Word Mark 

Set Word Mark 

Clear Word Mark 

Clear Storage 

Move and Insert Zeros (for reading 7070 Compressed Tape) 

Modify Address 

Store A Address Register 

Store B Address Register 


M 

P 

Z 

D 

Y 

E 

L 

/ 
n 

/ 
X 

# 

Q 
H 


Logic Control 


B 

BWZ 
C 

NOP 
H 
*BBE 


Branch 

Branch if Word Mark and/or Zone 

Compare 

No Operation 

Halt 

Branch if Bit Equal 


B 
V 
C 
N 

W 


System Control 


R 
W 
WR 
P 

RP 
WP 
WRP 
*SRF 
*SPF 
SS 
CC 
CU 
MU 
LU 


Read a Card 
Write a Line 
Write and Read 
Punch a Card 
Read and Punch 
Write and Punch 
Write, Read and Punch 
Start Read Feed 
Start Punch Feed 
Select Stacker 
Control Carriage 
Control Unit 
Move Unit 
Load Unit 


1 

2 

3 

4 

5 

6 

7 

8 

9 

K 

F 

U 

M 

L 


PROCESSOR CONTROL OPERATIONS 




Mnemonic 
Operation Code 


Description 






CTL 
ORG 
END 
EX 


Control 
Origin 
End 
Execute 





*Pertains to an optional feature. 

Figure 38. SPS Mnemonic Operation Codes 
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